ADA Programming Guide/ADA Programming Guide.iso/ada_pcdp/ada/matrixl.ada

Text File | 1996-01-30 | 859b | 31 lines

with Text_IO; use Text_IO;
with Tuple_Defs; use Tuple_Defs;
with Tuple_Package; use Tuple_Package;
procedure MatrixL is

  Result: Tuples;

  task type Workers;
  Worker: array(1..2) of Workers;
  task body Workers is separate;

begin
  Out_Tuple(Char('A'), Int(1), Vec((1,2,3)));
  Out_Tuple(Char('A'), Int(2), Vec((4,5,6)));
  Out_Tuple(Char('A'), Int(3), Vec((7,8,9)));
  Out_Tuple(Char('B'), Int(1), Vec((1,0,1)));
  Out_Tuple(Char('B'), Int(2), Vec((0,1,0)));
  Out_Tuple(Char('B'), Int(3), Vec((2,2,0)));

  Out_Tuple(Char('N'), Int(1));

  Put_Line("  Row    Col   Result");
  for I in 1..3 loop
    for J in 1..3 loop
      Result := In_Tuple(Char('C'), Int(I), Int(J), Formal_Int);
      Put_Line(Integer'Image(I) & Integer'Image(J) &
               Integer'Image(Int(Result,4)));
    end loop;
  end loop;
end MatrixL;